LineTo procedure

  DECLARATION:  LineTo(X,Y : Integer)

      PURPOSE:  Draws a line from the current pointer to (X,Y)

         UNIT:  System

      REMARKS:  This will draw a line, using the current line style,
                thickness, and color as set by SetLineStyle and SetColor,
                from the current pointer to the position designated by (X,Y).

                The current pointer becomes the point specified by LineTo.

 RESTRICTIONS:  Must first be in graphics mode.